Attribute VB_Name = "modSBCConverter"
Option Explicit

Option Explicit

Private Const MAX = -23554
Private Const MIN = -23674
    
Public Function IsQUAN(strInput As String) As Boolean
    IsQUAN = (Asc(strInput) <= MAX And Asc(strInput) >= MIN)
End Function

Public Function Conv2Ban(ByVal strInput As String) As String
    Dim i As Long
    Dim b
    
    If Len(strInput) = 0 Then Exit Function
    
    b = strInput
    
    For i = 1 To Len(strInput)
        If IsQUAN(Mid(strInput, i, 1)) Then
            Mid(b, i, 1) = (Chr(Asc(Mid(strInput, i, 1)) + 23680))
        End If
    Next
    Conv2Ban = b
End Function
